Help! I want to print multiple copies of a worksheet with different number on each

[John Morris]

I have created an excel worksheet and I want to print off 250 copies with a
different number on each page i.e. 1 to 250.

I do not want to type in a number and then print.

Is there a way to do this automatically so that I can just print and then
have the same document with a different number on each.

Any help would be greatly appreciated

Cheers
John

[esap...@bancofrances.com.ar]

John:

Insert the following macro

Regards,

Ezequiel

Sub pages()
For I = 1 To 250
With ActiveSheet.PageSetup
.CenterFooter = "Página " & I
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next I
End Sub

In article <#R$qR49t#GA...@cppssbbsa02.microsoft.com>,

Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.

[Patrick Molloy]

use a macro
place the number 1 near the bottom, about where you'd want it to appear
whats the cell ref? lets say E60

in a VB module put the following

SUB Print250()
dim count as Long
For Count =1 to 250
activesheet.range("E60")=Count
ActiveWindow.SelectedSheets.PrintOut Copies:=1
next
END SUB

Patrick

John Morris wrote in message <#R$qR49t#GA...@cppssbbsa02.microsoft.com>...